10 REM CROSSOVER DESIGN PROGRAMS
20 REM BY ANDREW C ERICKSEN,JR.   MONROE, WISC.  53566
25 POKE53280,15:POKE53281,15:PRINT"[144]"
30 PRINT"[147]":PRINTTAB(12)"CROSSOVER DESIGN":PRINT:PRINT
40 PRINT" 1.FIND L AND C."
45 PRINT"  (CROSSOVER FREQ.& IMPEDANCE KNOWN)"
50 PRINT:PRINT" 2.FIND CROSSOVER FREQ."
55 PRINT"  (L.,C.,& IMPEDANCE KNOWN) (12DB. ONLY)"
60 PRINT" 3.FIND CROSSOVER FREQ."
65 PRINT"  (C.& IMPEDANCE KNOWN) (6DB. ONLY)"
70 PRINT:PRINT" 4.FIND CROSSOVER FREQ."
72 PRINT"  (L.,& IMPEDANCE KNOWN) (6DB. ONLY)"
74 PRINT:PRINT" 5.FIND L AND C."
76 PRINT"  (CROSSOVER FREQ.& IMPEDANCE KNOWN)"
78 PRINT"  (18 DB. ONLY)"
96 PRINT:PRINT" 6.END"
98 PRINT:PRINT:INPUT " SELECTION (1-6)";P
100 IFP=1THEN200
110 IFP=2THEN590
120 IFP=3THEN790
130 IFP=4THEN990
140 IFP=5THEN1200
150 IFP=6THENEND
200 PRINT"[147]":PRINT:PRINT:PRINTTAB(5)"6 AND 12 DB. CROSSOVER NETWORK"
205 PRINTTAB(5)"CALCULATIONS"
210 PRINT:PRINTTAB(10)"L.IN MH. AND C.IN UF."
230 PRINT:PRINT:INPUT " ENTER FC IN HZ.";FC
240 PRINT:PRINT:INPUT " ENTER Z IN OHM'S";Z
250 PRINT"[147]":PRINT:PRINT:PRINT" FC=";FC
260 PRINT:PRINT" Z=";Z
270 L1=159*Z/FC:C1=159000/(FC*Z):L2=159*Z*SQR(2)/FC:C2=159000/(FC*Z*SQR(2))
280 PRINT:PRINT" 6DB. L=";L1;"MH.":PRINTTAB(6)"LOW PASS ONLY - NO CAP."
290 PRINT:PRINT" 6DB. C=";C1;"UF.":PRINTTAB(6)"HIGH PASS ONLY - NO COIL."
300 PRINT:PRINT" 12DB. L="L2;"MH."
310 PRINT:PRINT" 12DB. C=";C2;"UF."
320 PRINT:INPUT" NEW VALUES OF FC. & Z. (Y/N)";R$
330 IFR$="Y"THEN200
340 IFR$="N"THEN350
350 PRINT:PRINT:INPUT " PRINTER OUTPUT (Y/N)";P$
360 IFP$="Y"THEN375
370 IFP$="N"THEN30
375 OPEN1,4
380 PRINT#1,CHR$(14)TAB(2)"6 & 12 DB. CROSSOVER CALCULATIONS"
385 PRINT#1,CHR$(15)CHR$(10)
400 PRINT#1,TAB(2)"FC.=";FC;"HZ."
405 PRINT#1,CHR$(10)
410 PRINT#1,TAB(2)"Z.=";Z;"OHM'S"
415 PRINT#1,CHR$(10)
420 PRINT#1,TAB(2)"6 DB. L.=";L1;"MH.   (LOW PASS ONLY - NO CAP.)"
422 PRINT#1,CHR$(10)
430 PRINT#1,TAB(2)"6 DB. C.=";C1;"UF.   (HI PASS ONLY - NO COIL)"
432 PRINT#1,CHR$(10)
440 PRINT#1,TAB(2)"12 DB. L.=";L2;"MH."
442 PRINT#1,CHR$(10)
450 PRINT#1,TAB(2)"12 DB. C.=";C2;"UF."
452 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
455 CLOSE1
460 GOTO30
590 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ. CALCULATION"
595 PRINT" (L.,C.,& Z. KNOWN) (12 DB. ONLY)
600 [153]:[133] " ENTER L. IN MH.=";L
610 [153]:[133] " ENTER C. IN UF.=";C
620 [153]:[133] " ENTER Z. IN OHMS=";Z
640 FC[178]159000[173](C[172]Z[172][186](2))
650 FL[178](159[172]Z[172][186](2))[173]L
660 [153]:[153]" CROSSOVER FREQ.OF L.=";FL;"HZ."
665 [153]:[153]" CROSSOVER FREQ. OF C.=";FC;"HZ."
667 [153]:[153]" 12 DB. PER OCTAVE"
670 [153]:[133]" NEW VALUE OF CROSSOVER FREQ. (Y/N)";R$
672 [139] R$[178]"Y"[167]590
674 [139] R$[178]"N"[167]690
690 [153]:[153]:[133] " PRINTER OUTPUT (Y/N)";P$
695 [139]P$[178]"Y"[167]705
700 [139]P$[178]"N"[167]30
705 [159]1,4
710 [152]1,[199](14)[163]2)"CROSSOVER FREQ. CALCULATION"
715 [152]1,[199](15)[199](10)
720 [152]1,[163]2)"12 DB. PER OCTAVE"
722 [152]1,[199](10)
723 [152]1,[163]2)"Z.=";Z;"OHM'S"
724 [152]1,[199](10)
725 [152]1,[163]2)"L.=";L;"MH.
727 PRINT#1,CHR$(10)
730 PRINT#1,TAB(2)"CROSSOVER FREQ.OF L.=";FL;"HZ."
732 PRINT#1,CHR$(19)
735 PRINT#1,TAB(2)"C.=";C;"UF."
737 PRINT#1,CHR$(10)
740 PRINT#1,TAB(2)"CROSSOVER FREQ. OF C.=";FC;"HZ."
747 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
750 CLOSE1
755 GOTO30
790 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ. CALCULATION"
795 PRINT" (C.,& Z. KNOWN) (6DB. ONLY)"
800 PRINT:INPUT " ENTER C. IN UF.";C1
810 PRINT:INPUT " ENTER Z. IN OHM'S";Z
820 FC=159000/(C1*Z)
830 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
840 PRINT:PRINT" CAPACITANCE=";C1;"UF."
845 PRINT:PRINT" IMPEDANCE=";Z;"OHM'S"
850 PRINT:PRINT:INPUT " NEW VALUES OF C. OR Z.? (Y/N)";R$
860 IFR$="Y"THEN790
870 IFR$="N"THEN875
875 OPEN1,4
880 PRINT:PRINT:INPUT" PRINTER OUTPUT (Y/N)";P$
885 IFP$="Y"THEN895
890 IFP$="N"THEN30
892 OPEN1,4
895 PRINT#1,CHR$(14)TAB(2)"CROSSOVER FREQ. CALCULATION"
900 PRINT#1,CHR$(15)CHR$(10)
905 PRINT#1,TAB(2)"IMPEDANCE=";Z;"OHM'S"
910 PRINT#1,CHR$(10)
920 PRINT#1,TAB(2)"CAPACITANCE=";C1;"UF."
930 PRINT#1,CHR$(10)
940 PRINT#1,TAB(2)"CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
945 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
950 CLOSE1
955 GOTO30
990 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ. CALCULATION"
995 PRINT" (L.,& Z. KNOWN) (6DB. ONLY)"
1000 PRINT:INPUT " ENTER L. IN MH.";L1
1010 PRINT:INPUT " ENTER Z. IN OHM'S";Z
1020 FC=(159*Z)/L1
1030 PRINT"[147]":PRINT:PRINT:PRINT" CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
1040 PRINT:PRINT" INDUCTANCE=";L1;"MH."
1045 PRINT:PRINT" IMPEDANCE=";Z;"OHM'S"
1050 PRINT:INPUT" NEW VALUES OF L., OR Z.? (Y/N)";R$
1060 IFR$="Y"THEN990
1070 IFR$="N"THEN1080
1080 PRINT:PRINT:INPUT" PRINTER OUTPUT (Y/N)";P$
1085 IFP$="Y"THEN1092
1090 IFP$="N"THEN30
1092 OPEN1,4
1095 PRINT#1,CHR$(14)TAB(2)"CROSSOVER FREQ. CALCULATION"
1100 PRINT#1,CHR$(15)CHR$(10)
1105 PRINT#1,TAB(2)"IMPEDANCE=";Z;"OHM'S"
1110 PRINT#1,CHR$(10)
1120 PRINT#1,TAB(2)"INDUCTANCE=";L1;"MH."
1130 PRINT#1,CHR$(10)
1140 PRINT#1,TAB(2)"CROSSOVER FREQ.=";FC;"HZ. (6DB.)"
1145 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
1150 CLOSE1
1155 GOTO30
1200 PRINT"[147]":PRINT:PRINT:PRINT"  18DB. CROSSOVER NETWORK CALCULATIONS"
1210 PRINT:PRINTTAB(10)"L.IN MH. AND C.IN UF."
1220 PRINT:PRINT:INPUT" ENTER FC IN HZ.";FC
1230 PRINT:PRINT:INPUT" ENTER Z.IN OHM'S";Z
1240 PRINT"[147]":PRINT:PRINT:PRINT"  FC=";FC
1250 PRINT:PRINT"  Z=";Z
1260 C1=159000/(FC*Z):C3=159000/(FC*Z*1.6):C4=2*C1
1270 L1=159*Z/FC:L3=(159*Z*1.6)/FC:L4=L1/2
1280 PRINT:PRINT"  (LOW PASS SECTION)"
1290 PRINT:PRINT"  INPUT INDUCTOR=";L3;"MH."
1300 PRINT"  OUTPUT INDUCTOR=";L1;"MH."
1310 PRINT"  SWAMP CAPACITOR=";C4;"UF."
1320 PRINT:PRINT"  (HIGH PASS SECTION)"
1330 PRINT:PRINT"  INPUT CAPACITOR=";C3;"UF."
1340 PRINT"  OUTPUT CAPACITOR=";C1;"UF."
1350 PRINT"  SWAMP CHOKE=";L4;"MH."
1360 PRINT:INPUT"  NEW VALUES OF FC.& Z.  (Y/N)";D$
1370 IFD$="Y"THEN1200
1380 IFD$="N"THEN1390
1390 PRINT:INPUT"  PRINTER OUTPUT  (Y/N)";G$
1400 IFG$="Y"THEN1420
1410 IFG$="N"THEN30
1420 OPEN1,4
1430 PRINT#1,CHR$(14)TAB(2)" 18 DB. CROSSOVER CALCULATIONS"
1440 PRINT#1,CHR$(15)CHR$(10)
1442 PRINT#1,TAB(2)"FC=";FC;"HZ."
1444 PRINT#1,CHR$(10)
1446 PRINT#1,TAB(2)"Z=";Z;"OHM'S"
1448 PRINT#1,CHR$(10)
1450 PRINT#1,TAB(2)"(LOW PASS SECTION)"
1460 PRINT#1,CHR$(10)
1470 PRINT#1,TAB(2)"INPUT INDUCTOR=";L3;"MH."
1480 PRINT#1,CHR$(10)
1490 PRINT#1,TAB(2)"OUTPUT INDUCTOR=";L1;"MH."
1500 PRINT#1,CHR$(10)
1510 PRINT#1,TAB(2)"SWAMP CAPACITOR=";C4;"UF."
1520 PRINT#1,CHR$(10)CHR$(10)
1530 PRINT#1,TAB(2)"(HIGH PASS SECTION)"
1540 PRINT#1,CHR$(10)
1550 PRINT#1,TAB(2)"INPUT CAPACITOR=";C3;"UF."
1560 PRINT#1,CHR$(10)
1570 PRINT#1,TAB(2)"OUTPUT CAPACITOR=";C1;"UF."
1580 PRINT#1,CHR$(10)
1590 PRINT#1,TAB(2)"SWAMP INDUCTOR=";L4;"MH."
1595 PRINT#1,CHR$(10)CHR$(10)CHR$(10)CHR$(10)CHR$(10)
1600 CLOSE1
1610 GOTO30